home *** CD-ROM | disk | FTP | other *** search
- #include <exec/types.h>
- #include <exec/memory.h>
- #include <dos/dos.h>
- #include <intuition/intuition.h>
- #include <intuition/gadgetclass.h>
- #include <intuition/imageclass.h>
- #include <intuition/icclass.h>
- #include <gadgets/listbrowser.h>
- #include <images/label.h>
- #include <libraries/asl.h>
- #include <libraries/gadtools.h>
- #include <utility/tagitem.h>
- #include <proto/asl.h>
- #include <proto/dos.h>
- #include <proto/diskfont.h>
- #include <proto/exec.h>
- #include <proto/gadtools.h>
- #include <proto/graphics.h>
- #include <proto/icon.h>
- #include <proto/intuition.h>
- #include <proto/utility.h>
- #include <proto/wb.h>
- #include <classact.h>
- #include <stdio.h>
- #include <string.h>
-
- enum { GAD_FROM, GAD_TO, GAD_COPIES, GAD_COLLATE };
-
- LONG easy_req(struct Window *, char *, char *, char *, ...);
- VOID draw_collate(struct Window *, BOOL);
-
- /* Image for the no-collate image.
- */
- __chip UWORD nocollate_data[450] =
- {
- /* Plane 0 */
- 0x0003, 0xFFFF, 0xC000, 0x07FF, 0xFF80,
- 0x0002, 0x0000, 0x4000, 0x0400, 0x0080,
- 0x0002, 0x0002, 0x6000, 0x0400, 0x04C0,
- 0x0002, 0x5806, 0x6000, 0x04B0, 0x0CC0,
- 0x01FF, 0xFFE2, 0x6003, 0xFFFF, 0xC4C0,
- 0x0100, 0x0027, 0x6002, 0x0000, 0x4EC0,
- 0x0100, 0x0330, 0x6002, 0x0006, 0x60C0,
- 0x012E, 0x00B4, 0x6002, 0x5C01, 0x68C0,
- 0xFFFF, 0xF130, 0x61FF, 0xFFE2, 0x60C0,
- 0x8000, 0x13B0, 0x6100, 0x0027, 0x60C0,
- 0x8001, 0x9830, 0x6100, 0x0330, 0x60C0,
- 0x9700, 0x5E30, 0x612E, 0x00BC, 0x60C0,
- 0x8000, 0x9830, 0x6100, 0x0130, 0x60C0,
- 0x9400, 0x5834, 0x6128, 0x00B0, 0x68C0,
- 0x8001, 0x9830, 0x6100, 0x0330, 0x60C0,
- 0x8B5F, 0x1830, 0x6116, 0xBE30, 0x60C0,
- 0x8000, 0x1830, 0x6100, 0x0030, 0x60C0,
- 0x97B6, 0x1E30, 0x612F, 0x6C3C, 0x60C0,
- 0x8000, 0x1830, 0x6100, 0x0030, 0x60C0,
- 0x8BA8, 0x1830, 0x6117, 0x5030, 0x60C0,
- 0x8000, 0x183F, 0xE100, 0x0030, 0x7FC0,
- 0x9BF7, 0x183F, 0xE137, 0xEE30, 0x7FC0,
- 0x8000, 0x1830, 0x0100, 0x0030, 0x6000,
- 0x9400, 0x1830, 0x0128, 0x0030, 0x6000,
- 0x8000, 0x1FF0, 0x0100, 0x003F, 0xE000,
- 0x9B00, 0x1FF0, 0x0136, 0x003F, 0xE000,
- 0x8000, 0x1800, 0x0100, 0x0030, 0x0000,
- 0x8000, 0x1800, 0x0100, 0x0030, 0x0000,
- 0xFFFF, 0xF800, 0x01FF, 0xFFF0, 0x0000,
- 0x3FFF, 0xF800, 0x007F, 0xFFF0, 0x0000,
- /* Plane 1 */
- 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
- 0x0001, 0xFFFF, 0x8000, 0x03FF, 0xFF00,
- 0x0001, 0xFFFD, 0x8000, 0x03FF, 0xFB00,
- 0x0001, 0xDBF9, 0x8000, 0x03B7, 0xF300,
- 0x0000, 0x001D, 0x8000, 0x0000, 0x3B00,
- 0x00FF, 0xFFD8, 0x8001, 0xFFFF, 0xB100,
- 0x00FF, 0xFCCF, 0x8001, 0xFFF9, 0x9F00,
- 0x00ED, 0xFF47, 0x8001, 0xDBFE, 0x8F00,
- 0x0000, 0x0ECF, 0x8000, 0x001D, 0x9F00,
- 0x7FFF, 0xEC47, 0x80FF, 0xFFD8, 0x8F00,
- 0x7FFE, 0x67CF, 0x80FF, 0xFCCF, 0x9F00,
- 0x76FF, 0xA7CF, 0x80ED, 0xFF4F, 0x9F00,
- 0x7FFF, 0x67CF, 0x80FF, 0xFECF, 0x9F00,
- 0x77FF, 0xA3C7, 0x80EF, 0xFF47, 0x8F00,
- 0x7FFE, 0x67CF, 0x80FF, 0xFCCF, 0x9F00,
- 0x6BDF, 0xE7CF, 0x80D7, 0xBFCF, 0x9F00,
- 0x7FFF, 0xE7CF, 0x80FF, 0xFFCF, 0x9F00,
- 0x76F5, 0xE7CF, 0x80ED, 0xEBCF, 0x9F00,
- 0x7FFF, 0xE7CF, 0x80FF, 0xFFCF, 0x9F00,
- 0x6BEF, 0xE7CF, 0x80D7, 0xDFCF, 0x9F00,
- 0x7FFF, 0xE7C0, 0x00FF, 0xFFCF, 0x8000,
- 0x7AF7, 0xE7C0, 0x00F5, 0xEFCF, 0x8000,
- 0x7FFF, 0xE7C0, 0x00FF, 0xFFCF, 0x8000,
- 0x77FF, 0xE7C0, 0x00EF, 0xFFCF, 0x8000,
- 0x7FFF, 0xE000, 0x00FF, 0xFFC0, 0x0000,
- 0x7BFF, 0xE000, 0x00F7, 0xFFC0, 0x0000,
- 0x7FFF, 0xE000, 0x00FF, 0xFFC0, 0x0000,
- 0x7FFF, 0xE000, 0x00FF, 0xFFC0, 0x0000,
- 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
- 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
- };
-
- struct Image nocollate_image =
- {
- 0, 0, 74, 30, 2, &nocollate_data[0], 0x3, 0x0, NULL
- };
-
- /* Image for the no-collate image.
- */
- __chip UWORD collate_data[468] =
- {
- /* Plane 0 */
- 0x01FF, 0xFFE0, 0x07FF, 0xFF80, 0x1FFF, 0xFE00,
- 0x0100, 0x0020, 0x0400, 0x0080, 0x1000, 0x0200,
- 0x0100, 0x0130, 0x0400, 0x0CC0, 0x1000, 0x3300,
- 0x012C, 0x0330, 0x04B0, 0x02C0, 0x12C0, 0x0B00,
- 0xFFFF, 0xF133, 0xFFFF, 0xC4CF, 0xFFFF, 0x1300,
- 0x8000, 0x13B2, 0x0000, 0x4EC8, 0x0001, 0x0B00,
- 0x8000, 0x9832, 0x0006, 0x60C8, 0x0019, 0xB300,
- 0x9701, 0x9A32, 0x5C01, 0x68C9, 0x7005, 0xA300,
- 0x8000, 0x9832, 0x0002, 0x60C8, 0x0009, 0x8300,
- 0x9401, 0xD832, 0x5007, 0x60C9, 0x4005, 0x8300,
- 0x8000, 0x1832, 0x0000, 0x60C8, 0x0019, 0x8300,
- 0x8B5F, 0x1832, 0x2D7C, 0x60C8, 0xB5F1, 0x8300,
- 0x8000, 0x1832, 0x0000, 0x60C8, 0x0001, 0x8300,
- 0x97B4, 0x1A32, 0x5ED0, 0x68C9, 0x7B41, 0xA300,
- 0x8000, 0x1832, 0x0000, 0x60C8, 0x0001, 0x8300,
- 0x8BA8, 0x1832, 0x2EA0, 0x60C8, 0xBA81, 0x8300,
- 0x8000, 0x1832, 0x0000, 0x60C8, 0x0001, 0x8300,
- 0x9BF7, 0x1832, 0x6FDC, 0x60C9, 0xBF71, 0x8300,
- 0x8000, 0x1832, 0x0000, 0x60C8, 0x0001, 0x8300,
- 0x9400, 0x1832, 0x5000, 0x60C9, 0x4001, 0x8300,
- 0x8000, 0x1FF2, 0x0000, 0x7FC8, 0x0001, 0xFF00,
- 0x9B00, 0x1FF2, 0x6C00, 0x7FC9, 0xB001, 0xFF00,
- 0x8000, 0x1802, 0x0000, 0x6008, 0x0001, 0x8000,
- 0x8000, 0x1802, 0x0000, 0x6008, 0x0001, 0x8000,
- 0xFFFF, 0xF803, 0xFFFF, 0xE00F, 0xFFFF, 0x8000,
- 0x3FFF, 0xF800, 0xFFFF, 0xE003, 0xFFFF, 0x8000,
- /* Plane 1 */
- 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
- 0x00FF, 0xFFC0, 0x03FF, 0xFF00, 0x0FFF, 0xFC00,
- 0x00FF, 0xFEC0, 0x03FF, 0xF300, 0x0FFF, 0xCC00,
- 0x00ED, 0xFCC0, 0x03B7, 0xFD00, 0x0EDF, 0xF400,
- 0x0000, 0x0EC0, 0x0000, 0x3B00, 0x0000, 0xEC00,
- 0x7FFF, 0xEC41, 0xFFFF, 0xB107, 0xFFFE, 0xF400,
- 0x7FFF, 0x67C1, 0xFFF9, 0x9F07, 0xFFE6, 0x4C00,
- 0x76FE, 0x63C1, 0xDBFE, 0x8F07, 0x6FFA, 0x3C00,
- 0x7FFF, 0x67C1, 0xFFFD, 0x9F07, 0xFFF6, 0x7C00,
- 0x77FE, 0x23C1, 0xDFF8, 0x8F07, 0x7FFA, 0x3C00,
- 0x7FFF, 0xE7C1, 0xFFFF, 0x9F07, 0xFFE6, 0x7C00,
- 0x6BDF, 0xE7C1, 0xAF7F, 0x9F06, 0xBDFE, 0x7C00,
- 0x7FFF, 0xE7C1, 0xFFFF, 0x9F07, 0xFFFE, 0x7C00,
- 0x76F5, 0xE3C1, 0xDBD7, 0x8F07, 0x6F5E, 0x3C00,
- 0x7FFF, 0xE7C1, 0xFFFF, 0x9F07, 0xFFFE, 0x7C00,
- 0x6BEF, 0xE7C1, 0xAFBF, 0x9F06, 0xBEFE, 0x7C00,
- 0x7FFF, 0xE7C1, 0xFFFF, 0x9F07, 0xFFFE, 0x7C00,
- 0x7AF7, 0xE7C1, 0xEBDF, 0x9F07, 0xAF7E, 0x7C00,
- 0x7FFF, 0xE7C1, 0xFFFF, 0x9F07, 0xFFFE, 0x7C00,
- 0x77FF, 0xE7C1, 0xDFFF, 0x9F07, 0x7FFE, 0x7C00,
- 0x7FFF, 0xE001, 0xFFFF, 0x8007, 0xFFFE, 0x0000,
- 0x7BFF, 0xE001, 0xEFFF, 0x8007, 0xBFFE, 0x0000,
- 0x7FFF, 0xE001, 0xFFFF, 0x8007, 0xFFFE, 0x0000,
- 0x7FFF, 0xE001, 0xFFFF, 0x8007, 0xFFFE, 0x0000,
- 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
- 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
- };
-
- struct Image collate_image =
- {
- 0, 0, 88, 26, 2, &collate_data[0], 0x3, 0x0, NULL
- };
-
- /* Here's where it all starts.
- */
- main()
- {
- struct Screen *screen = NULL;
-
- if (!ButtonBase) return(20);
-
- /* We'll just open up on the default public screen, and use its screen font.
- */
- if (screen = LockPubScreen(NULL))
- {
- struct DrawInfo *drinfo = GetScreenDrawInfo(screen);
- struct List *radio_list;
- struct Image *l, *collate_limage, *nocollate_limage;
- struct Gadget *collate_gad, *nocollate_gad;
- Object *layout, *collate_layout;
- UWORD mapping[4];
-
- /* Setup a simple mapping.
- */
- mapping[0] = drinfo->dri_Pens[BACKGROUNDPEN];
- mapping[1] = drinfo->dri_Pens[SHADOWPEN];
- mapping[2] = drinfo->dri_Pens[SHINEPEN];
- mapping[3] = drinfo->dri_Pens[FILLPEN];
-
- /* Create radio buttons.
- */
- radio_list = RadioButtons( "All Pages",
- "Odd Pages",
- "Even Pages",
- "Current Page",
- "Range of Pages:",
- NULL);
-
- nocollate_limage = LabelObject,
- /* LABEL_Mapping, mapping, */
- LABEL_Image, &nocollate_image,
- LabelEnd;
- collate_limage = LabelObject,
- /* LABEL_Mapping, mapping, */
- LABEL_Image, &collate_image,
- LabelEnd;
-
- if (layout = LayoutObject,
- GA_DrawInfo, drinfo,
- LAYOUT_DeferLayout, TRUE, /* Layout refreshes done on
- * task's context (by the
- * window class) */
- LAYOUT_SpaceOuter, TRUE,
- LAYOUT_ShrinkWrap, TRUE,
- LAYOUT_VertAlignment, LAYOUT_ALIGN_TOP,
- LAYOUT_Orientation, LAYOUT_ORIENT_VERT,
-
- LAYOUT_AddChild, LayoutObject,
- LAYOUT_Orientation, LAYOUT_ORIENT_HORIZ,
- LAYOUT_VertAlignment, LAYOUT_ALIGN_CENTER,
- LAYOUT_SpaceOuter, TRUE,
-
- LAYOUT_AddImage, l = LabelObject,
- IA_Font, screen->Font,
- LABEL_Text, "Driver:",
- LabelEnd,
- CHILD_MinWidth, l->Width,
- CHILD_MinHeight, l->Height,
- CHILD_WeightedWidth, 0,
- CHILD_WeightedHeight, 0,
-
- LAYOUT_AddChild, ButtonObject,
- GA_Text, "EpsonX",
- GA_ReadOnly, TRUE,
- ButtonEnd,
- LayoutEnd,
- CHILD_WeightedHeight, 0,
-
- LAYOUT_AddChild, LayoutObject,
- LAYOUT_Orientation, LAYOUT_ORIENT_HORIZ,
-
- LAYOUT_AddChild, LayoutObject,
- LAYOUT_Orientation, LAYOUT_ORIENT_VERT,
- LAYOUT_SpaceOuter, TRUE,
- LAYOUT_BevelStyle, BVS_GROUP,
- LAYOUT_Label, "Page Range",
-
- LAYOUT_AddChild, RadioButtonObject,
- GA_DrawInfo, drinfo,
- RADIOBUTTON_Labels, radio_list,
- RADIOBUTTON_Spacing, 3,
- RadioButtonEnd,
-
- LAYOUT_AddChild, LayoutObject,
- LAYOUT_Orientation, LAYOUT_ORIENT_HORIZ,
- LAYOUT_VertAlignment, LAYOUT_ALIGN_CENTER,
-
- LAYOUT_AddImage, l = LabelObject,
- IA_Font, screen->Font,
- LABEL_Text, "from:",
- LabelEnd,
- CHILD_MinWidth, l->Width,
- CHILD_MinHeight, l->Height,
- CHILD_WeightedWidth, 0,
- CHILD_WeightedHeight, 0,
-
- LAYOUT_AddChild, IntegerObject,
- INTEGER_Number, 1,
- INTEGER_Minimum, 0,
- IntegerEnd,
-
- LAYOUT_AddImage, l = LabelObject,
- IA_Font, screen->Font,
- LABEL_Text, " to:",
- LabelEnd,
- CHILD_MinWidth, l->Width,
- CHILD_MinHeight, l->Height,
- CHILD_WeightedWidth, 0,
- CHILD_WeightedHeight, 0,
-
- LAYOUT_AddChild, IntegerObject,
- INTEGER_Number, 1,
- INTEGER_Minimum, 0,
- IntegerEnd,
-
- LayoutEnd,
- LayoutEnd,
-
- LAYOUT_AddChild, LayoutObject,
- LAYOUT_Orientation, LAYOUT_ORIENT_VERT,
- LAYOUT_SpaceOuter, TRUE,
- LAYOUT_BevelStyle, BVS_GROUP,
- LAYOUT_Label, "Copies",
- LAYOUT_VertAlignment, LAYOUT_ALIGN_TOP,
- LAYOUT_ShrinkWrap, TRUE,
-
- LAYOUT_AddChild, LayoutObject,
- LAYOUT_Orientation, LAYOUT_ORIENT_HORIZ,
- LAYOUT_VertAlignment, LAYOUT_ALIGN_CENTER,
-
- LAYOUT_AddImage, l = LabelObject,
- IA_Font, screen->Font,
- LABEL_Text, "Number of Copies:",
- LabelEnd,
- CHILD_MinWidth, l->Width,
- CHILD_MinHeight, l->Height,
- CHILD_WeightedWidth, 0,
- CHILD_WeightedHeight, 0,
-
- LAYOUT_AddChild, IntegerObject,
- INTEGER_Number, 1,
- INTEGER_Minimum, 0,
- IntegerEnd,
-
- LayoutEnd,
-
- LAYOUT_AddChild, LayoutObject,
- LAYOUT_Orientation, LAYOUT_ORIENT_HORIZ,
- LAYOUT_VertAlignment, LAYOUT_ALIGN_CENTER,
-
- LAYOUT_AddChild, CheckBoxObject,
- GA_ID, GAD_COLLATE,
- GA_Text, "Collate Pages?",
- GA_RelVerify, TRUE,
- CheckBoxEnd,
- CHILD_MinHeight, screen->Font->ta_YSize + 6,
-
- LayoutEnd,
-
- LAYOUT_AddChild, collate_layout = LayoutObject,
- LAYOUT_HorizAlignment, LAYOUT_ALIGN_CENTER,
- LAYOUT_AddChild, collate_gad = ButtonObject,
- GA_Image, nocollate_limage,
- GA_ReadOnly, TRUE,
- ButtonEnd,
- CHILD_MinWidth, 100,
- CHILD_MinHeight, 40,
- CHILD_WeightedWidth, 0,
- LayoutEnd,
-
- LayoutEnd,
- LayoutEnd,
- CHILD_WeightedHeight, 0,
-
- LayoutEnd)
- {
- struct MsgPort *app_port;
- Object *window_obj;
-
- /* Create a message port for App* messages. This is needed for
- * iconification. We're being a touch naughty by not checking
- * the return code, but that just means that iconification won't
- * work, nothing really bad will happen.
- */
- app_port = CreateMsgPort();
-
- /* Create the window object.
- */
- if (window_obj = WindowObject,
- WA_Left, 0,
- WA_Top, screen->Font->ta_YSize + 3,
- WA_CustomScreen, screen,
- WA_IDCMP, IDCMP_CLOSEWINDOW | IDCMP_REFRESHWINDOW,
- WA_Flags, WFLG_DRAGBAR | WFLG_DEPTHGADGET | WFLG_CLOSEGADGET |
- WFLG_SIZEGADGET | WFLG_ACTIVATE | WFLG_SMART_REFRESH,
- WA_Title, "Print Requester example",
- WA_NewLookMenus, TRUE,
- WINDOW_ParentGroup, layout,
- WINDOW_IconifyGadget, TRUE,
- WINDOW_Icon, GetDiskObject("PROGDIR:PrintReq"),
- WINDOW_IconTitle, "PrintReq",
- WINDOW_AppPort, app_port,
- WINDOW_LockHeight, TRUE,
- TAG_DONE))
- {
- struct Window *win;
-
- /* Open the window.
- */
- if (win = (struct Window *)CA_OpenWindow(window_obj))
- {
- ULONG signal;
- BOOL ok = TRUE, collate = FALSE;
-
- /* Draw the collate image.
- */
- /* draw_collate(win, collate); */
-
- /* Obtain the window wait signal mask.
- */
- GetAttr(WINDOW_SigMask, window_obj, &signal);
-
- /* Input Event Loop
- */
- while (ok)
- {
- ULONG result;
-
- Wait(signal | (1L << app_port->mp_SigBit));
-
- /* CA_HandleInput() returns the gadget ID of a clicked
- * gadget, or one of several pre-defined values. For
- * this demo, we're only actually interested in a
- * close window and a couple of gadget clicks.
- */
- while ((result = CA_HandleInput(window_obj, NULL)) != WMHI_LASTMSG)
- {
- switch(result & WMHI_CLASSMASK)
- {
- case WMHI_CLOSEWINDOW:
- ok = FALSE;
- break;
-
- case WMHI_GADGETUP:
- switch (result & WMHI_GADGETMASK)
- {
- case GAD_COLLATE:
- collate = !collate;
- if (collate)
- {
- SetGadgetAttrs(collate_gad, win, NULL,
- GA_Image, collate_limage,
- TAG_DONE);
- }
- else
- {
- SetGadgetAttrs(collate_gad, win, NULL,
- GA_Image, nocollate_limage,
- TAG_DONE);
- }
- RethinkLayout(collate_layout, win, NULL, TRUE);
- break;
-
- default:
- break;
- }
- break;
-
- case WMHI_ICONIFY:
- if (CA_Iconify(window_obj))
- win = NULL;
- break;
-
- case WMHI_UNICONIFY:
- win = CA_OpenWindow(window_obj);
- break;
-
- default:
- break;
- }
- }
- }
- }
- else
- easy_req(NULL, "PrintReq failed to start\nCouldn't open window", "Quit", "");
-
- /* Disposing of the window object will also close the
- * window if it is already opened and it will dispose of
- * all objects attached to it.
- */
- DisposeObject(window_obj);
- }
- else
- easy_req(NULL, "PrintReq failed to start\nCouldn't create window", "Quit", "");
-
- /* Lose the App* message port.
- */
- if (app_port)
- DeleteMsgPort(app_port);
- }
- else
- easy_req(NULL, "PrintReq failed to start\nCouldn't create layout", "Quit", "");
-
- /* Get rid of our images.
- */
- if (collate_limage)
- DisposeObject(collate_limage);
- if (nocollate_limage)
- DisposeObject(nocollate_limage);
-
- if (radio_list)
- FreeRadioButtons(radio_list);
-
- if (drinfo)
- FreeScreenDrawInfo(screen, drinfo);
-
- UnlockPubScreen(0, screen);
- }
- else
- easy_req(NULL, "PrintReq failed to start\nCouldn't lock destination screen", "Quit", "");
-
- exit(0);
- }
-
- /* Do an easy requester.
- */
- LONG easy_req(struct Window *win, char *reqtext, char *reqgads, char *reqargs,
- ...)
- {
- struct EasyStruct general_es =
- {
- sizeof(struct EasyStruct),
- 0,
- "SBGen",
- NULL,
- NULL
- };
-
- general_es.es_TextFormat = reqtext;
- general_es.es_GadgetFormat = reqgads;
-
- return(EasyRequestArgs(win, &general_es, NULL, &reqargs));
- }
-